home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
RCOLORG2.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
3KB
|
52 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME RCOLORG2.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NBV1.INC"
SCREEN 12
CLS
GraphicSETUP
COLOR 7, 0
? "┌─────────────────────────────────────────────────────────────────────────
? "│ GBoxCOLOR2 ( C1%, R1%, C2%, R2%, OldColor?, NewColor? )
? "│
? "│ PURPOSE: exchange all occurances of Oc? with Nc? in the box
? "│ PARAMS: C1% left-most column ( 0 -> 639 )
? "│ R1% top most row ( 0 -> 479 )
? "│ C2% right most column
? "│ R2% bottom most row
? "│ Oc? the color to be changed
? "│ Nc? the color to replace Oc?
? "└─────────────────────────────────────────────────────────────────────────
DELAY 1 '┌───────────────────────────
'│
GBoxColor 270, 250, 369, 350, 15 '│ draw a big white box
GBoxColor 295, 275, 343, 325, 0 '│ put a black one inside it
'│
FOR C? = 1 TO 14 '│ change only the old color
GBoxColor2 270, 250, 369, 350, C?-1, C? '│ to the new color
DELAY .6 '│
IF INSTAT THEN EXIT FOR '│ bail out any key
NEXT '│
'│
WHILE NOT INSTAT : WEND '│
CLS '│
SCREEN 0 '└──────────────────────────